home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / nxtevn.c < prev    next >
C/C++ Source or Header  |  1992-11-21  |  671b  |  29 lines
  1. /* nxtevn.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       integer function nxtevn(n) >*/
  9. integer nxtevn_(n)
  10. integer *n;
  11. {
  12.     /* System generated locals */
  13.     integer ret_val;
  14.  
  15.  
  16. /* .. function returns the smallest value nxtevn greater than or equal to 
  17. */
  18. /* .. n which is evenly divisible by 'nwd4, nwd8, and nwd16' as defined */
  19.  
  20. /* .. in setmem */
  21.  
  22. /*<       nxtevn=((n+3)/4)*4 >*/
  23.     ret_val = (*n + 3) / 4 << 2;
  24. /*<       return >*/
  25.     return ret_val;
  26. /*<       end >*/
  27. } /* nxtevn_ */
  28.  
  29.